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44—-35 Oe oe 6 Se LL. a Peli oS 


PPOlOGLlLEesS « «. « 


MY SINCEREST APOLOGIES TO ALL VZ JOURNAL READERS FOR THE VERY, VERY 
LATENESS OF THIS ISSUE. AS MENTIONED IN LAST ISSUE I HAVE A MEDICAL 
PROBLEM WHICH GOT MUCH .WORSE NEAR COMPLETION OF MY NEW HOUSE. IT 
AFFECTED ALL MY JOINTS AND MADE LIFE UNBEARABLE FOR MANY MONTHS. 


[ HAD TO BE OUT OF MY LAST ADDRESS BY A CERTAIN DATE AND SO I PUSHED 
MYSELF AND AM STILL PAYING FOR IT NOW. IT HAD MANY RELAPSES SINCE THEN 
BU“ THANKFULLY I'M STARTING TO FEEL NEAR NORMAL. THE NEXT ISSUE 
SHOULD BE ON TIME AS I'VE LEARNED MY LESSON AND AM TAKING THINGS EASY. 


NEXT/SFUTURE ISSUE/S ... 


FINAL PART OF VZ FREQUENCY. 

MULTIPLE USR CALL ROUTINE (USED IN VZ FREQUENCY). 
MACHINE CODE DIRECTORY ROUTINE (USED BY VZ FREQUENCY). 
MINI AMPLIFIER FOR THE VZ. 

MANUAL DATA INPUT FOR VZ LOTTO. 

JOURNAL INDEX PART II 


FOR SALE — FOR SALE... 


OFF VZ 30@ 1 OFF 16 MEMORY EXPANSION 

OFF DISK DRIVES | OFF DISK CONTROLLER 

OFF PRINTER INTERFACE 1 OFF JOYSTICK INTERFACE 

OFF GREEN SCREEN MONITOR 1 OFF 8 BIT PORT (HV VZ J #30) 
CFF LIGHT PEN 1 OFF MODEM AND INTERFACE 

OFF DR2@ TAPE DATA RECORDER ASSORTED GAME CASSETTES 

BOx OF ASSORTED DISKS, BOOKS, MAGAZINES AND MANUALS 


web edt med wee A) ent 


$25@.0@ ONO. WILL SEPERATE BUT WOULD PREFER TO SELL AS ONE LOT. 
ALSO FOR SALE SPARE PARTS INCLUDING: 


APFROXIMATELY 6 VZ'S, EXPANSION CASES, MODEMS, YOYSTICKS, MEMORY, CPU 
CHIPS (SOME NEW), MONITORS (GOING). 


BEST OFFER FOR ABOVE 

BEN HOBSON PO BOX 255 QUIRINDI 2343 (@67) 462 @76 AFTER 6.30 PM 
PUBLIC DOMAIN SOFTWARE 

IT HAS BEEN SUGGESTED TO ME THAT I ASSEMBLE A NUMBER OF DISKS 
CONTAINING PUBLISHED PROGRAMS, PUBLIC DOMAIN SOFTWARE, ETC AND OFFER 
TO READERS AT MINIMAL COST TO COVER EXPENSES. PLEASE LET ME KNOW YOUR 
IDEAS ON THIS AND WHAT TYPE OF SOFTWARE YOU WOULD LIKE. Ep. 


BACK ISSUES... 


MOST BACK ISSUES ARE IN STOCK AND AVAILABLE AT FOLLOWING PRICES. 


CURRENT ISSUE - $3.50 EACH -— INCLUDES POSTAGE 
1 - 5 Issues - $3.00 EACH —- INCLUDES POSTAGE 
6 OR MORE ISSUES $2.75 EACH ~- INCLUDES POSTAGE 
OUT OF STOCK ISSUES - $3,.5@ EACH - INCLUDES POSTAGE 


~ * EDITOR'S COMMENTS ™ “1. 2,— 2 


FRONT COVER 

IT SAYS IT ALL. IT HAVE MOVED AGAIN, BUT NOT VERY FAR AND HAVE NO 
PLANS MOVING AGAIN UNLESS I WIN LOTTO OR SOMETHING SIMILIAR. IT IS 
VERY NICE HAVING A PLACE OF MY OWN AGAIN AFTER BOARDING FOR A COUPLE 
YEARS WITH MY BROTHER, 


HELP — SELL & .ELL PAGE 3 
APOLOGIES, NEXT/FUTURE ISSUES, FOR SALE, PUBLIC DOMAIN SOFTWARE AND 


BACK ISSUES. 


LIST UTILITY BY L MILBURN PAGES 4-6 
LIST IS A SMALL ROUTINE WHICH CAN BE CALLED FROM A BASIC PROGRAM AND 
LISTS A BASIC PROGRAM STORED ON DISK TO THE PRINTER (OR SCREEN AFTER A 
SMALL MOD) AND THE BASIC PROGRAM WILL KEEP RUNNING AFTER THE CALL. 


DOS BUGS 2 BY L MILBURN PAGE 6 
THIS TIME LES HAS FOUND A BUG WITH THE DCOPY COMMAND AND SHARES HIS 


DISCOVERY WITH OTHER VZ USERS. 


BASIC COMMAND ABBREVATIONS PAGE & 


BY BOB KITCH 
THERE ARE A NUMBER OF UNDOCUMENTED COMMAND ABBREVATIONS WHICH BOB 


BRINGS TO OUR ATTENTION AND CAN BE USED BY PROGRAMERS. 


INVERSE CHARACTER SET PAGES 7-10 
BY BOB KITCH 

THE SHAPES OF THE VZ INVERSE CHARACTER SET IS HELD IN ROM AND CONTAIN 
SOME ERRORS. IF YOU STUDY PAGE 16 YOU'LL SEE THEM. THE PROGRAM WILL 
ALLOW YOU TO A HAVE A LOOK AT YOUROWN ROM AND SEE FOR YOURSELF. 


BASIC & SOURCE CODE TO PAGES 10-14 
We FILE BY DMITCHELL 

THIS PROGRAM WAS NORMALLY AVAILABLE WITH DAVE MITCHELL'S E & F DISk WP 
PATCH3.3. IT CONVERTS BASIC PROGRAMS AND SOURCE CODE FILES TO DISK WP 
FILES. IT IS VERY FAST AND VERY EASY TO USE AND VERY USEFUL. 


VZ NUMBERS FREQUENCY PAGES 14-18 
THIS PROGRAM IS DESIGNED TO KEEP TRACK OF WINNING AND/OR SUPPLEMENTARY 
NUMBERS IN POOLS AND GO LOTTO. WITH SOME MINOR MODIFICATIONS THIS 
PROGRAM COULD BE ALTERED TO KEEP TRACK OF OTHER NUMBER FREQUENCIES. 
QZ LOTTO MODS IN NEXT ISSUE. 


VZ—-EPSON PRINTER PATCH V1.4 PAGE 19 
BY L TAYLOR — PUBLIC TAYLOR 

THE INSTRUCTIONS FOR ABOVE ARE REPRODUCED FOR THOSE WHO HAVE PROGRAM 
BUT NOT THE INSTRUCTIONS. 


NEW PUBLIC DOMAIN SOFTWARE PAGE 20 
SER GROUPS 

ONTRIBUTIONS 

UBSCRIPTIONS 


VOC 


DOISCLAIMER: ~~ Every EFFORT IS MADE TO INSURE THE ACCURACY OF 
INFORMATION CONTAINED WITHIN BE IT GENERAL, TECHNICAL, PROGRAMMING, 
ETC. NO RESPONSIBILITY CAN BE ACCEPTED BY HUNTER VALLEY VZ USERS’ 
GROUP OR AUTHOR AS A RESULT OF APPLYING SUCH INFORMATION IN PRACTICE. 


O28 
O29) 
O50 
O31 

O32 
O35 
O34. 
035 
036 


O39 


@4S 
05a 
O51 
O52 
053 
O54 
055 
056 
Q57 
058 
059 
060 
061 
062 


LioT UTILITY SouURCE CODE 


a WE ERE HE HE ME HE AE He HE RE He He NE HE SKE HE ae ie He ME He ae ate ae ae 
> 


;* MACHINE CODE ROUTINE * 
;* PRINTS A BASIC PROGRAM * 


: WE DHE THE HE SE TE BH HE SHE She SHE NE He SE AE Ne He He ale he aie She ate ae ate 


:NOT RELOCATABLE CODE.. 


2 
0 HE HO RE HE HE Re NE HE Re BE KE SNE She We OE ae Me aE He ae ale He he at he ae 
4 


sROM 


PCHR 
PINT 
FLNE 
PCR 

IMOD 
PMSG 
DTOK 
PWON 
PWOF 
LOAD 


EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 


DVCE EQU 


> SBAS EQU 


BPTR EQU 
RTYP EQU 
EBAS EQU 
ARG EQU 


SUBROUTINES. 


@32AH 
OFAFH 
1B2CH 
ZOFEH 
2828H 
2B75H 
2B7EH 
4008H 
40@BH 
4041H 


, 
0 SHE TE HE HE Me He HE ME HG HE HE She He RE HE He AE HE ae NE UE Ne We HE ale 


% +BASIC PROGRAM POINTERS 


789CH 
7 8A4H 
78A7H 
7 8AFH 
/8F 9H 
7921H 


» 
: Be RE HE HE HE TE HE He HE HE HE He He Te ME HE HE He He De Ne HE He He ake ae 


;CONSTANT DEFINITIONS 


VINT EQU 
VSTR EQU 


' SDEV EQU 
» PDEV EQU 


FTYP EQU 
STAK EQU 


2 

S) 

Q 

| 

ae 
7700H 


4 
= WEE HE HE ME HE HE HE ONE HE HE HE WE She HE IE he BH He BYE HE RE RE ae ate aie 
, 


CP 
JP 
:CHECK IF 
CALL 
sSAVE DOS 
LD 


CHECK ARG IS A STRING 
V 


STR 
NZ,ERR 
IMMEDIATE MODE 
IMOD 
VECTOR 
(DOS) , LY 


;CLEAR FILENAME BUFFER 


LD 
LD 
INC 
INC 
INC 
LD 
LD 
LDIR 
:GET 
LD 


;A=STRING 


DE, (DOS) 
HL, (DOS) 
HL 

DE 

DE 

(HL) ,32 
BC / 


STRING ARG (FILENAME) 


HL, (ARG) 
LENGTH 


063 
064 
G65 
066 
067 
068 
G69 
07 
071 

G72 
Q73 
O74 
075 
076 
Q77 
078 
079 
080 
081 
082 
083 
084 
085 
086 
Q87 
088 
089 
090 
091 

092 
093 
@94 
095 
@96 
097 
098 
099 
109 
11 

102 
103 


108 


wm re ie ee ee ee ed ee ee ee eh ee 


NO NO ROB DR ee em em ewe OH BC 
PNM GOON DOF WN OW 


LD =A, CHL) 
INC HL 
;iF STRING LEN=@, RETURN 
CP @ 
JR Z,ERR 
;ENSURE STRING LEN <= 8 
CP 9 
Jr. ALPS 
LD A,8 
LPT “ED Es CHG) 
INC HL 
LD ~~ OD, CHL) 
EX  DE,HL 
;COPY FILENAME TO BUFFER 
LD DE, (DOS) 
INC DE 
LD C,A 
LD B,@ 
LDIR 


;SAVE STACK POINTER 


LD (STCK) , SP 


sSET STACK PTR TO FREE MEM 


LD SP,STAK 


;SAVE IMPORTANT BASIC PTRS 


ec 1 


LD = HL, (SBAS) 

PUSH HL 

LD ~=HL, CEBAS) 

PUSH HL 

LD ~=HL, (BPTR) 

PUSH HL 

FILETYPE TO BASIC TYPE 
LD (TY+9) ,FTYP 


;LOAD FILE SPECIFIED FROM 
;DISK IN CURRENT DRIVE 


CALL PWON 
CALL LOAD 


sSAVE ERROR CODE. 


PUSH AF 
CALL PWOF 


;RESTORE THE ERROR CODE 


POP AF 


;WAS THERE A DISK ERROR? 
Q 


CP 
JR NZ, ERR2 


;SET THE OUTPUT DEVICE TO 
; THE PRINTER 


LD = A,PDEV 
LD (DVCE),A 


;SET THE BASIC INPUT BUFFER 
;TO OUR OWN BUFFER 


LD HL, IBUF 
LD (BPTR) ,HL 


; SEARCH FOR THE FIRST BASIC 
; PROGRAM LINE 


LD DE ,@ 
CALL FLNE 


;SAVE FOUND LINE PTR 


PUSH BC 


LOOP POP HL 
;BC = PTR TO NEXT LINE 


LD.  C, CAL) 
INC HL 


_rsTr UTILITY BY LESLIE mMiIitcBuUrRN <2} — <4 


LIST IS A SMALL ROUTINE WHICH LISTS A BASIC PROGRAM STORED ON DISK TO 
THE PRINTER (OR SCREEN AFTER A SMALL MOD). 


SO WHATS NEW? I HEAR YOU ASK. 


WELL, THE BEAUTY OF THIS UTILITY IS THAT IT CAN BE CALLED FROM A BASIC 
PROGRAM AND DOES NOT RE-ENTER IMMEDIATE MODE AFTER LISTING THE 
PROGRAM, (I.£. THE CALLING BASIC PROGRAM KEEPS RUNNING). 


WHAT'S THE USE’ 


THE MAIN USE OF LIST IS TO PROVIDE AN EASY WAY TO LIST MANY BASIC 
PROGRAMS IN A “BATCH LIKE" PROCESS WITHOUT REQUIRING INTERVENTION BY 
THE USER. 


How TO USE LIST. 


(1) A CONTROLLING BASIC PROGRAM IS REQUIRED. IT MUST LOAD THE 
ROUTINE, SET UP THE USR ADDRESS AND PROVIDE THE FILENAMES 
OF THE PROGRAMS TO LIST. 


(2) THE CONTROLLING BASIC PROGRAM MUST BE RELOCATED SUCH THAT ITS 
START ADDRESS IS ABOVE THE END ADDRESS OF ALL OF THE BASIC 
PROGRAMS IT IS LISTING. 


(3) XSUSRC"FILENAME") IS THE SYNTAX REQUIRED TO LIST A FILE. AFTER 
THE CALL, X INDICATES WHETHER AN ERROR OCCURRED (NON-ZERO = 
ERROR). 


RELOCATING A BASIC PROGRAM 


THE EASIEST WAY TO RELOCATE A PROGRAM IS TO USE THE EXT12 UTILITY. AN 
ALTERNATIVE IS TO MOVE THE START OF BASIC POINTER AS DESCRIBED IN THE 
TECHNICAL MANUAL. 


RUNNING A RELOCATED BASIC PROGRAM 


IF yOu TRY TO RUN A RELOCATED BASIC PROGRAM AND YOU GET A SYNTAX ERROR 
TRY THE FOLLOWING: 


SOB= (PEEK (30884) +256*PEEK (30885) )-1 
POKE SOB,@ or POKE SOB-65536,@ IF SOB > 32/67 


Now TYPE RUN 


HERE IS AN EXAMPLE OF A CONTROLLING BASIC PROGRAM (NOTE THAT LIST.BIN 
IS LOCATED AT 29184) 


10 BLOAD"LIST.BIN" 

20 POKE3@862,@:POKE3@863,114 

3@ POKE29282,@ ‘FOR SCREEN LIST 
4Q@ X=USR("FILE1") 

5@ X=USRC"FILE2") 

6@ X=USR("FILES") 

7@ X=USRC"ETC “) 

8@ X=USR("ETC “) 


L_isT SOURCE CODE ON NEXT 2 PAGES 


44-7 BASIC COPMAND ABBREVIATIONS 
BY BOB KITCH 


A NUMBER OF ABBREVIATED FORMS OF BASIC COMMANDS WILL RUN ON THE VZ. 

THESE SHORTENED FORMS ARE NOT FULLY ODOCUMENTED IN THE MANUALS 
ACCOMPANYING THE MACHINES; SO I HAVE SET THEM OUT BELOW. TRY THEM, AS 
THEY SAVE A LITTLE SPACE ON THE 32 CHARACTER LONG LINE. THEY SHOULD 
BE USED WITH CAUTION AS THEY CONTRIBUTE LITTLE TO PROGRAM READABILITY. 


FULL COMMAND ABBREVIATED COMMAND 

1@ REM A NON-EXECUTABLE LINE 1@ ' A NON-EXEC.... 

20 PRINT"SEE THIS"" 20 ?°SEE THIS" 

5@ SOUND 1,3:SOUND 2,5 3@ SOUND 1,3;2,5 

4@ LET A=23 . 40 A=23 

5@ IF A=i THEN GOTO 999 5@ IF A=1,GOTO 999 
ae caer ORR eave 


5@ IF A=1,999 
6@ PRINT"ENTER VALUE”:INPUT A  6@ INPUT”ENTER VALUE":A 


TO PUT THE INPUT "?" ANY WHERE ON THE SCREEN USE: 
/@ PRINT@488:: INPUT A 


MULTIPLE NEXT STATEMENTS ARE NOT REQUIRED IF THEY FOLLOW EACH OTHER IN 
THE PROGRAM. | 


EDITOR’S NOTE: 


THE USE OF (') INSTEAD OF REM SAVES TWO CHARACTER SPACES ON THE 
PROGRAM LINE BUT USES 3 BYTES OF MEMORY INSTEAD OF 1 BYTE. 


THE USE OF (7?) INSTEAD OF PRINT SAVES CHARACTER SPACES ON THE PROGRAM 
LINE, BUT ONCE ENTERED THE VZ CONVERTS IT TO THE PRINT STATEMENT. 
EACH NUMBERED LINE ON THE VZ CONSISTS OF 64 CHARACTER SPACES INCLUDING 
THE LINE NUMBER. 


IT IS POSSIBLE BY USING (7) MANY TIMES ON A LINE TO FORCE THE VZ TO 
EXCEED THE 64 CHARACTER LIMIT. THE VZ WILL DISPLAY IT, BUT WILL NOT 
ALLOW EDITING OF THE EXTRA CHARACTERS/LINES AND IF YOU PRESS RETURN 
ON THE LINE THE EXTRA CHARACTERS/LINES WILL DISAPEAR. 


WHEN RENUMBERING YOUR PROGRAM THE USE OF (') INSTEAD OF REM CAN 
CORRUPT YOUR PROGRAM AND BRING ON STRANGE RESULTS WHICH COULD BE 
DIFFICULT TO CORRECT FOR THE NOVICE PROGRAMMER. AS BOB MENTIONED USE 
THE ABREVIATED COMMANDS WITH CAUTION. 


DISPLAY INVERSE CHARACTER SET 
BY BOB KI TCH 


WHEN INVERSE CHARACTERS ARE SENT TO A DOT MATRIX PRINTER THE PRINTER 
SHIFTS TO GRAPHICS MODE AND REQUIRES A ROUTINE TO SUPPLY THE 
APPROPRIATE SHAPES TO THE HEAD. (NORMAL CHARACTERS ARE HELD IN THE 
PRINTERS ROM), IN THE VZ COMPUTER A TABLE OF SHAPES IS LOCATED AT 
SBI4H TO 3CD3H (15252 to 15571 IN ROM. 


THERE ARE 64 CHARACTERS, EACH USING 5 BYTES TO DEFINE THEIR GRAPHIC 
SHAPE. THE SHAPES MAY BE DECODED AND OUTPUT TO THE SCREEN AS IS DONE 
IN THIS PROGRAM. NOTE THERE ARE ERRORS IN THE ROM. THE 5 BYTES 
DEFINE A 5 BY 8 DOT MATRIX WHICH IS THE SHAPE OF THE CHARACTER, WHICH 
INCIDENTLY ARE NOT ORDERED ACCORDING TO THE ASCII cone. 


LiSsSTwuTIeLITY SOURCE CODE CONT. 44—&S 


125 LD B, CHL) 167 LD (BPTR) , HL 

126 INC HL 168 POP HL 

127 ;CHECK IF END OF PROGRAM 169 LD (EBAS) ,HL 

128 LD A,B 178 POP HL 

129 OR C 171 LD (SBAS) ,HL 

13@ JR Z,LEXX 172 LD HL, 1 

131 ;SAVE PTR TO NEXT LINE 173 JR LEX1 

132 PUSH BC 174 ; 

133 ;:BC = LINE NUMBER 175 ;EXIT FROM ROUTINE NO ERROR 
134 LD C, (HL) 176 LEXX EQU $ 

135 INC HL 177 ; 

136 LD B, (HL) 178 s;QUTPUT TWO CR'S 

137 :SAVE LINE NUMBER 179 CALL PCR 

138 PUSH BC 180 CALL PCR 

139 :HL = TOKENISED LINE PTR 181 ;RESTORE IMPORTANT BASIC 
14@ INC HL 182 ;PROGRAM POINTERS 

141 ;SAVE LINE PTR. HL=LINE NO 183 POP HL 

142 EX (SP) ,HL 184 LD (BPTR) ,HL 

143 ;PRINT THE LINE NUMBER © 785 POP HL 

144 CALL PINT 186 LD (EBAS) ,HL 

145 ;sOUTPUT A SPACE 187 POP HL 

146 LD A,32 188 LD (SBAS) , HL 

147 CALL PCHR 189 ;RESET OUTPUT DEVICE TO 
148 POP HL 19@ ;THE SCREEN 

149 ;:DETOKENISE STRING POINTED 7 191 LD A,SDEV 

15@ :TO BY HL 192 LD (DVCE) ,A 

15] CALL DTOK 193 sHL=RET VALUE. ZERO=SUCCESS 
152 :LIST LINE ON OUTPUT DEVICE 194 LD HL,@ 

153 LO Hi, TBUF 195 LEX1 LD (ARG) , AL 

154 CALL PMSG 7 196 ;SET RETURN ARG TYPE TO INT 
155 :OUTPUT A CR 197 LD A,VINT 

156 CALL PCR 198 LD (RTYP) ,A 

157 JR LOOP 199 ;RESTORE STACK POINTER 
158 ; 280 LD SP, (STCK) 

159 ;EXIT FROM ROUTINE ON ERROR 201 RET 

16@ ERR LD HL, 1 202 ; 

1 61 JR {i EX] 2635 : FE RE RE HE TE RE ARE He HEE He HE RE AE We ae HE He HE SRE SE Se aE KE ake 2 
162 ERR2Z2 EQU §$ 204 ;DATA STORAGE AREA 

163 ; 205 ;: 

164 ;RESTORE IMPORTANT BASIC 206 IBUF DEFS 1@0 

165 ;:PROGRAM POINTERS 207 STCK DEFW @ 

166 POP HL 208 DOS DEFW @ 


DOS BUGS REPORT 2IN (CDSE? DOS Vi. 2? 
BY LESLIE mMIt_BurRrnr 


I HAVE FOUND YET ANOTHER BUG IN DOS V1.2. THIS TIME It IS TO DO 
WITH THE DCOPY COMMAND. IF DCOPYING A SINGLE FILE USING TWO DRIVES AND 
THE DESTINATION DISK IS WRITE PROTECTED, THE DESTINATION DRIVE IS LEFT 
SPINNING AND NO ERROR MESSAGE IS DISPLAYED. 


IF ANYBODY HAS FOUND ANY OTHER BUGS IN ANY DOS SYSTEM, PLEASE 
INFORM THE EDITOR WHO CAN PASS THE INFORMATION ON TO OTHER USERS. 


INCGOTE = IF wRITING TO EDITOR PLEASE NOTE NEW ADDRESS AND PHONE 
NUMBER WHICH IS SHOWN ON FRONT COVER. 


444—-Q EINVERSE CHARACTER SET CONT . 


460 COLOR BI% (1%) 2'***SET COLOUR OF BIT. 

47Q SET CHP%, VPZ+1%) eee LO Bll, 

4&9 NEXT 17 

4cQ : 

57@ '***PREPARE FOR NEXT BYTE. 

510 HP%=HP%+ | 2 ' **#* TNCREMENT HORIZONTAL POSITION. 
5270 IF BK%=5 THEN BK%Z=@ :HPZ=HP2+CWZ © *#*NEW CHARACTER. 


520 NEXT ADZ% 
540 GOTO 590 


EDITOR'S COMMENTS: 


THE VZ AS SOLD HAS A TANDY PRINTER COMPATIBLE BASIC ROM. FOR 
THOSE PERSONS WHO HAVE AN EPSON PRINTER COMPATIBLE EPROM THE ABOVE 
PROGRAM WILL PRINT THE INVERSE CHARACTERS UPSIDE DOWN. TWO MINOR 
CHANGES ARE REQUIRED TO FIX THE PROBLEM: 


OLD LINE: 230 VP%Z=3 OLD LINE: 47@ SET CHP%, VP2+I%) 
NEW LINE: 230 VPRZ=11 NEw LINE: 47@ SET CHP%, VP%Z-I%2) 


DISK USERS: ENTER THE FOLLOWING LINES FOR EXTRA FUNCTIONS. 


59@ GOTO 829 
60@ AS=INKEYS:AS=INKEYS: IF AS=""THEN 680 


610 : . 

62@ IF A$S="U"THEN 7/00: ' sGOES TO HI-RES SCREEN UPDATE 
6450 IF AS="S"THEN 710:° :GOES TO HI-RES SCREEN SAVE 

640 IF AS="Q" THEN CLS:END: SENDS THIS PROGRAM 

650 IF A$="*"THEN 8@@: :GOES TO PROGRAM UPDATE ROUTINE 
660 IF AS="&" THEN 810: —  :GOES TO PROGRAM SAVE ROUTINE 
67@ GOTO 688 

690 : 

7@@ ERA" INV-ROM®: ° sERASES HI-RES SCREEN FROM DISK 


71@ BSAVE" INV-ROM" ,7@@@,77FF:' ;SAVES HI-RES SCREEN TO DISK 
72@ GOTO 828 


7/390 : 
8@@ :ERA"INV.ROM":' *-ERASES THIS PROGRAM FROM DISK 
810 SAVE" INV.ROM":' »«SAVES THIS PROGRAM TO DISK 


8Z@ SOUND 25,1:GOTO 68@ 


TAPE USERS: ENTER ONLY THE FOLLOWING LINES AFTER LINE 61@. 


626 IF AS="S"THEN 8@@:' :GOES TO PROGRAM SAVE ROUTINE 
620 IF AS="Q" THEN CLS:END: ' ENDS THIS PROGRAM 

640 GOTO 600 

690 : 

800 CSAVE" INVERSE ROM": ' SAVES THIS PROGRAM TO TAPE 


82@ SOUND 25,1:GOTO 600 


ON THE NEXT PAGE YOU'LL SEE TWO HI-RES SCREEN PRINTOUTS PRODUCED BY 
THIS PROGRAM. THE LEFT ONE IS OF A STANDARD VZ ROM WHILE THE RIGHT 
ONE IS OF A MODIFIED VZ ROM (EPROM). IF YOU STUDY THEM CAREFULLY 
YOU'LL NOTE THE ERRORS IN THE LEFT ONE THAT BOB MENTIONED. ANOTHER 
ACVANTAGE OF THE MODIFIED EPROM IS THAT IT WILL PRINTOUT TO AN EPSON 
COMPATIBLE PRINTER ALL THE VZ’'S INVERSE AND GRAPHIC CHARACTERS. 


MODIFIED VZ ROM (EPROM) : 


BESIDES ALLOWING LLISTING AND LPRINTING OF ALL INVERSE AND GRAPHIC 
CHARACTERS THE EPROM ALSO PROVIDES ALL THE EXTENDED BASIC FUNCTIONS 
HOBBLED IN THE ORIGINAL VZ ROM WHICH MEANS IT IS NO LONGER REQUIRED TO 
LOAD ANY EXTENDED BASICS. 


INVERSE CHARACTER SET CONT. 44—S 


WHEN INVERSE CHARACTERS ARE SENT TO A DOT MATRIX PRINTER THE PRINTER 
SHIFTS TO GRAPHICS MODE AND REQUIRES A ROUTINE TO SUPPLY THE 
APPROPRIATE SHAPES TO THE HEAD. (NORMAL CHARACTERS ARE HELD IN THE 
PRINTERS ROM). IN THE VZ COMPUTER A TABLE OF SHAPES IS LOCATED AT 
3B94H TO 3CD3H (15252 To 15571 IN ROM. 


THERE ARE 64 CHARACTERS, EACH USING 5 BYTES TO DEFINE THEIR GRAPHIC 
SHAPE. THE SHAPES MAY BE DECODED AND OUTPUT TO THE SCREEN AS IS DONE 
IN THIS PROGRAM. NOTE THERE ARE ERRORS IN THE ROM. THE 5 BYTES 
DEFINE A 5 BY 8 DOT MATRIX WHICH IS THE SHAPE OF THE CHARACTER, WHICH 
INCIDENTLY ARE NOT ORDERED ACCORDING TO THE ASCII CODE. 


THE FIRST BYTE DEFINES THE LEFT HAND EDGE OF THE CHARACTER WHICH IS 
THE FIRST PRINTED DURING A PASS OF THE PRINTER HEAD. IN TANDY 
PRINTERS THE MSB IS THE LOWERMOST PIN OF THE HEAD AND LSB IS THE 
UPPERMOST PIN. THE PINS ON EPSON PRINTER HEADS ARE ARRANGED IN THE 
OPPOSITE SENSE. THIS REQUIRES THAT THE BITS IN EACH BYTE BE REVERSED. 


0190 1 SRE RE SE ee EE Ne SE He AK KEE BE NE NE HE HE SE Se BE IRE ae SHE AE ole SHE BE Ae SHE SHE HE SHE Se Re HE Se SIE HE SE SHE SHE HE 26 NE GE SI He SIE RE IE ae aI HE ae ae ate ate 


UZ Eee DISPLAY INVERSE CHARACTER SET IN ROM a 
Q3Q '*** AS USED BY DOT MATRIX PRINTER one 
Q4Q '*** BY R. B. KITCH 27/9/86 me ae 


50 Die WHE Bie Se He We SE SE HE Se AE He Ne Se Se He He Ae SE DE SRE OE I He Ie IE SRE SE ORE PE NE OE HE SHE ae ae SBE SR SRE fe SNe He ae aE SIE SE SIE HE Ne ORE HE SHE SHE SRE RE BE le ake 


998 : | 

1@@ DIM MK%Z(7) :'***VECTOR OF BIT MASK VALUES -— POWERS OF 2? 
11@ DIM BIZ(7) :'***VECTOR OF DECODED BITS FROM ROM VALUE. 
120 : 

130 °***F TLL MASK VECTOR WITH POWERS OF 2 FOR DECODING. 

14@ FOR I%=@ TO 7 :MK%Z(1%)=2°I% :NEXT I% 


15@ : 

16@ '*** INITIALIZE PARAMETERS - MAY BE CHANGED TO VARY SCREEN. 
170 CC%R=4 :  *®*®CHARACTER COLOUR. (1-4) 

18@ BCR=2 :' ***®R ACKGROUND COLOUR. (1-4) 

198 CS%=@ 2) ***COLOUR SET. (@-1) 

200 CW%Z=3 > ***COLUMN WIDTH BETWEEN CHARACTERS. 

210 SP%=16 2° **®*ROW SPACING FOR CHARACTERS. 

220 HSZ=@ 7 ***STARTING HORIZONTAL POSITION ON HI-RES SCREEN. 
230 VP%=3 2 ***STARTING VERTICAL POSITION ON HI-RES SCREEN. 
a HMZ=127 =: '***MAXIMUM HORIZONTAL POSITION. (@-127) 

2 : 

260 °***SET UP MAIN LOOP TO STEP THROUGH ROM FROM 3B94H-43CD3. 
2/0 BKZ=0 > ***®BYTE COUNTER FOR EACH CHARACTER. 
286 HP%Z=HS% 2 ***SET HORIZONTAL POSITION TO START 
290 MODE(1) :COLOR,CS% > ***SET HI-RES SCREEN AND COLOR SET. 
300 FOR ADZ=15252 TO 15571 :'***ROM ADDRESSES FOR SHAPE TABLE. 
310 DV%Z=PEEK (AD%) 7) ***DECIMAL VALUE IN ROM. 

329 


33Q '***DECODE THE INDIVIDUAL BITS OF DV% AND STORE IN BT%(). 
54Q '***THE MASK VALUES IN MK%() ARE "“ANDED” WITH THE VALUE. 
550 '***THE RESULT STORED IN BT%() IS THE "COLOUR" OF THE BIT. 


360 FOR I[Z= 0 TO 7 7 ™**PROCEED FROM LSB TO MSB. 

379 IF DV%Z AND MKZ(I%) THEN BT%(1%)=BC% ELSE BT%(1I%) =CC% 
58@ NEXT 1% 

399 


400 '***CHECK THAT THERE IS ENOUGH ROOM TO PLOT CHARACTER. 

41@ IF BK%=@ AND HM%-HP%<4 THEN HP%=HS% :VPZ=VPZ+SPZ:' *NEW ROW 
420 BKZ=BK%+1 :'**TNCREMENT BYTE COUNTER. 

440 '***QUTPUT BYTE TO SCREEN. 

450 FOR I%=8 TO 7 


44¢4— 7 7 


GO" 
YO? 
003 
OBA 
OOS 
006 
0G,’ 
008 
009 
018 
O11 
O12 
013 
Bie 
O15 
W165 
@17 
013 
013 
O23 
021 
O22 
O23 
O24 
Q25 
0256 
O27 
078 RC 
O29 
030 
031 
032 
0353 
O34 
035 
436 
Q37 
038 
039 
O49 
D4 1 
O42 
043 
O44 
045 
046 
Q4.7 
448 
04.9 
050 
Go 1 
Q52 
053 LI 
O54 
BE5 
O56 
O57 
058 
B59 
G68 
061 
462 LI 


BASIC & SOURCE CONV. 


sBASIC AND SOURCE CODE 
‘TO WORD PROCESSOR FILE. 
“BY D.MITCHELL - 07B@@H 


SP, 7AFFH 
LY 

HL, (78B1H) 
BC, END-HO 
BC 

A 

HL ,BC 
(78B1H) , HL 
HL 

HL 


A 

BC, 33H 

HL, BC 
(78AQH) ,HL 


HL 
(78E8H) ,HL 
DE ,HO 

HL 

HL 

A 

HL ,DE 
DE,HL 
B,33 
EXT 

L, (1X+0@) 
H, (IX+@1) 
BC 

HL 

HL 

BC 

LY 

L, (LY+0@) 
H, (LY+@1) 
HL ,DE 


DE 

(72@0H) ,DE 
HL , HO 

BC 


LY 

HL,ERR 
(79ADH) ,HL 
A,@C3H 
(79ACH) ,A 
HL ,7AESH 
(78A4H) ,HL 
1B4DH 

HL, (72@@H) 
CHL) 

| 1+] 


665 
064 
@65 
066 
067 
068 
Q69 
07@ 
O71 

Q72 
073 
Q74 
075 
076 
077 


~ O78 


079 
080 
081 

O82 


eth ei eed eed eed wet 
NI—- SGWONAIMILEWH-@O 


NON 
f> WN 


HO 
L2 
L3 
M1 


EI 
L4 


31 


32 


33 


DEFW 
DEFW 
DEFW 
DEFW 
DEFW 
DEFW 
DEFW 
DEFW 
DEFW 
DEFW 
DEFW 
DEFW 
DEFW 
DEFW 
DEFW 
DEFW 
DEFW 
DEFW 
DEFW 
DEFW 
DEFW 
DEFW 
DEFW 
DEFW 
DEFW 
DEFW 
DEFW 
DEFW 
DEFW 
DEFW 
DEFW 


DEFW 


CONT . 


HO+ | 
E1+1 
L2+] 

L 3+] 
L4+] 
L5+1 

| 6+) 
AG+1 

L 7+] 

{ 8+] 

| 9+] 
L1QO+1 
Lii+] 
BO+ 1 
112+] 
L13+] 
L14+1 
L 15+] 
L16+2 
L17+2 
Li8+1 
L1i8A+1 
L19+1] 
E2+1 

L 20+} 
L 21+} 
L22+1 
IPUT+1 
L23+1 
ERR+2 
M1+1 
M2+1 
HL ,MES@ 
2B75H 
HLM] 
(ADD) , HL 
HL ,MES1 
2875H 
[PUT 
DLY 
ee 


Lye 
A 


NZ,4@@EH 
A,@DH 

$1 

A, (1Y+1@) 
oi a 

£3959 

ve 

L590 
A,@CH 

S1 

(IY+9) ,A 
4041H 

A 
NZ,4@0EH 


CALL 4@@BH 


A, (LY+9) 
ae ee 
NZ,BOA 


INVERSE CHARACTER SET CONT. 44.—-1@ 





THIS UTILITY WHICH SOME OF YOU MAY KNOW AS BSTWP.F (BASIC AND SOURCE 
CODE TO WORD PROCESSOR FILE CONVERTER) IS USED IN CONJUNCTION WITH 
DAVE MITCHELL'S PATCHS.3 (DISK VERSION OF E & F woRD PROCESSOR). IT 
CAN ALSO BE USED WITH RUSSELL HARRISON'S VERSION OF DISK WORD 
PROCESSOR (WORDPRO). 


AS THE NAME SUGGESTS THIS UTILITY CONVERTS BASIC PROGRAMS AND EDITOR 
ASSEMBLER ('S' FILE TYPE ONLY) SOURCE CODE FILES INTO WORD PROCESSOR 
FILES WHICH CAN BE LOADED INTO EITHER DISK WORD PROCESSOR. CONVERTING 
COULD'NT BE SIMPLER, IT'S JUST A MATTER OF ENTERING THE BASIC OR 
SOURCE CODE FILENAME AND ONCE LOADED ENTERING THE WP FILENAME. 
PRESSING RETURN WITHOUT FILENAME WILL PRESENT USER WITH DISK DIRECTORY 
IN 3 COLUMNS. 


CONVERTING IS VERY FAST, DO'NT BLINK OR YOU MAY MISS IT. THE WP FILES 
ARE SAVED TO DISK WITH A ‘W’ FILETYPE WITH AN END ADDRESS OF D@QOQH. 
BOTH BASIC AND SOURCE CODE FILES ARE PADDED OUT TO 5 DIGITS WITH 
LEADING ZEROES WHICH YOU MAY HAVE COME ACROSS IN THE JOURNAL ON 
NUMEROUS OCCASIONS. 


AS YOU ENTER THE SOURCE CODE SAVE IT EVERY SO OFTEN SO YOU WON'T LOSE 
ALL YOUR TYPING. SAVE THE SOURCE CODE AS CONV.SRC AND THE OBJECT CODE 
AS CONVERT. 


WARNING: YoU SHOULD BE AWARE THAT ANY GRAPHIC CHARACTERS IN YOUR 
CONVERTED BASIC PROGRAM WILL PRINT OUT AS GARBAGE AND IS A LIMITATION 
OF THE WORD PROCESSOR. 


ANYONE WHO HAS TRIED THE PRINTER FUNCTION OF THEIR EDITOR ASSEMBLER 
WILL FIND THIS UTILITY VERY HANDY FOR PRINTING OUT SOURCE CODE FILES 
AS IT CAN TAKE ADVANTAGE OF ALL THE PRINTER FUNCTIONS OF PATCH3.3 OR 
WORDPRO HAS TO OFFER. 


CONVERT VERSION S3S.1A: 


BRIAN GREEVE OF WA HAS MODIFIED CONVERT BY ADDING EXTRA FUNCTIONS 
MAKING IT VERY VERSATILE INDEED. THANKS BRIAN. CONV3.1A WILL CONVERT 
ALL SQURCE CODE FILETYPES, EG: %S. A & W AS WELL AS QUICK WRITE ‘F' 
WORD PROCESSOR FILES. OTHER OPTIONS ARE NUMBER OF DIGITS SELECT, 1-5 
AND D@@W oR FE@O WP FILE END ADDRESS FOR PATCH3.3 oR WORDPRO. 
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249 
250 
ZD| 
Loe 
253 


25th 


255 
256 
25/ 
258 
259 
260 
26 | 
262 
263 
264 
265 
266 
26/7 
268 
269 
2/79 
2/\ 
2/72 
273 
274 
275 
276 
2// 
278 
2793 
280 
281 
282 
283 
284 
285 
286 
28/7 
283 
283 
2910 
291 
297 
293 
294 
295 
296 
297 
293 
299 
300 
301 
302 
303 
404 
305 
305 
307 
303 
309 
319 


LI8A 
L19 
M2 
E2 


L2@ 


34 


El 
L2] 
BIA 
L22 


DLY 


BR 


IPUT 


PUSH 
POP 
INC 


HL 
BC 


BC 

HL ,@CFFFH 
DE, HL 

HL 


DE 

(78A4H) ,DE 
HL , @D@@GH 
(HL) ,@ 
(78F9H) ,HL 
Fs itZ 
(ADD) , HL 
HL ,MESZ 
2B75H 

TPUT 
(LTY¥+9) ,"W" 
DLY 

A, (13H) 
7,A 


Z,54 
A,4 
4@@8EH 
4Q44H 


A 
NZ,4@@EH 
4@0BH 


HO 

BC , @65@6H 
HL, (BUF 1) 
132FH 


HL 
(HL) , 20H 
HL 


4Q08H 
BC ,@@32H 
4038H 


LY 

HL 

HL 

(78B1H) ,HL 
BC ,65485 
HL, BC 
(78AQ@H) ,HL 
HL, 7AEQH 
(78A4H) , HL 
A, @CSH 
(7SACH) A 
1B4AH 
1A19H 

HL ,MES5 
2B/5H 
O53AH 
C,BR 

A, (DE) 

20H 

Z,DIR 


DIR 


L23 


D1 


D2 


D3 
D4 


D5A 


D5 
D6 


LD 
LD 
INC 


@1CSH 
A 


(TY+11H),A 
(LY+12H) ,A 
(7AAEH),A 

DLY 


4035H 

11H 

Z,D/7 

A 
NZ,4@Q0EH 
L, (ITY+317H) 
H, (1Y+352H) 
B,8 

A, (HL) 


A 
Z,D/ 
BC 

1 
NZ,D3 
DE, 16 
HL, DE 
D6 
B,10 


A, (HL) 


A, (7AAEH) 
A,1@ 

20H 
NZ,D5A 

A, 20H 
Q33AH 

DS 
A,@DH 
O33AH 
A,1BH 
Q33AH 
DE,6 

HL ,DE 

BC 

D2 
(LY+11H) 
A, (1Y+11H) 
OFH 
NZ,D1 
40@BH 


BC 
BC, (ADD) 


mee eed eee ee ee ee ee 
CN CN ON ON ON CN OV NO BO RO RO DG 
MMFPWNY—-Soowynan 


186 
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L5 
LO 


AG 


L7 
L8 


Al 


A2 
A3 


LY 


BOA 


L19 
L11 


BO 


Liz 


DE ,4 

HL, (/8F SH) 
HL,DE 
(BUF 1) ,HL 
(BUF 2) ,HL 
HL, (78A4H) 
EXIT 

A, (HL) 

HL 
(7921H),A 
A, (HL) 

HL 
(7922H) ,A 
BC 

HL 

BTA 
(BUF 1) ,HL 
(78A7H) ,HL 
HL 

2B7EH 

HL, (78A7H) 
A, CHL) 

A 

Z,A3 

40H 

C,A2 

5BH 

NC, A2 

A, 26H 

CHL) ,A 

HL 

Al 

(HL) ,@DH 
HL 

CHL) ,@DH 
HL 
(BUF 1) ,HL 
HL , 79E8H 
(78A7H) , HL 
HL 

AQ 

HL, (78F9H) 
(HL) ,@ 

HL 

(HL) ,@ 

HL , 8@@0H 
(BUF 1), HL 
(BUF 2) , AL 
HL ,@A280H 
EXIT 

HL 

(7921H) ,BC 
HL. 

BTA 

DE, HL 


187 
188 
189 
196 
191 

192 
193 
194 
195 
196 
197 
198 
199 
2O@ 
201 

202 
203 
204 


205 


206 
207 
208 
209 
210 
211 

212 
213 
214 
215 
216 
217 
218 
219 
220 
£21 

Z22 
223 
224 
L215 
226 
227 
228 
229 
230 
251 

252 
2995 
234 
255 
236 
257 
238 
Zog 
Z24Q 
24] 

242 
243 
L244 
245 
246 
247 
248 


ES 
Li4 
E15 
Bi 


B2 


BS 
B4 


L16 


CO 


Ci 
C2 
C3 


EXIT 


444—1 2 


£,61 
Bao 


DE 
(DE) ,A 
DE 


(BUF 1) ,DE 
HL 


BO 

A, (HL) 
6H 
LZ 
OFFH 
Z 

5BH 
NC,C1 
A, 2@H 


C, CHL) 


B, CHL) 

HL 

A,B 

C 

NZ 

DE, (BUF 2) 
HL, (BUF 1) 
(HL) , ODH 
HL 

A 

Hi,DE 
Z,EL 





—ji => VF FREQUENCY CONT TIT MNMLIE DD 
GOTO1000 

2°) eee : RETURN 

REN ieee Poses " sRETURN 

OPEN Seseeu ae " Q 

ING (oes oe /YR,WK,R,L$,P$:RETURN 

FORI=1TOR | 

[NG eo ee " CCL) NEXT 

CLOSE See =ee " RETURN 

SAVE senanene " ~RETURN 

aie ia SALE ORE: LER Lc LAE Sc Lae S ke 

FOR O=@ TO 7:POKE AD+0,ASC (MIDS (N$+" " O+1,1)) 


NEXT: RETURN 
FOR O=@ TO 2:POKE AD+0, ASC (MID$(X$,0+1,1)) :NEXT:RETURN 
CLs: POKE 30777,1:PRINT " aaeReay a EE Oa a a 
IE M>O THEN RETURN: '32 INVERSE SPACES 77 

PRINT@9, FRS:RETURN 

PRINT@275,"N":PRINT@258, "ARE YOU SURE  "::RETURN 
PRINT@487 ,M$; : RETURN 

PRINT@226, "SELECTED DRIVE >":D:RETURN 

NO=@:FOR I=1 TO R:IF C(1)>@ THEN ND=1:I=R: ° "imams 

NEXT: IF ND=1 THEN RETURN 

PRINT@S95, Be Do PE ee eee 


LF R=44 THEN PLS="LOTTO” ELSE PL$="POOLS" 
PRINTA@481,PL$;:PRINT” YR WK"; 











Hs SOUND 5,6:ND=@:RETURN 


2 PRINTA49@, USING" ##" ; YR; 


PRINTA496, USING" ##" ; WK: 
PRINTA499,USING"% %"; L$; 
PRINT@503,P$; :RETURN 


AD=31535:GOSUB 4@:'POKE LINE 16 FILENAME 
AD=31555:GOSUB 4@:'POKE LINE 18 FILENAME 
AD=316800:GOSUB 4@:'POKE LINE 22 FILENAME 
AD=31627:GOSUB 4@:'POKE LINE 24 FILENAME 
AD=31551:GOSUB 46: 'POKE LINE 18 IN#/PR# 
AD=51596:GOSUB 46: 'POKE LINE 22 IN#/PR# 
POKE 31545, X :'POKE LINE 16 @ OR 1 


iF U=2 THEN AD=31483: eel 4@:GOSUB 12: 'POKE LINE 12 F’NAME 
GOSUB 16:GOSUB 9@:GOSUB 
IF U=0 THEN 5@@ ELSE 100 


Me @:GQSUB 5@:GOSUB 9@: sad sa ita | St i 
PRINT@Z47, YR: PRINTA226, “ENTER YEAR (94-99) "; 
INPUT YR:IF YR=@ THEN 300 

IF YR<94 OR YR>GQ9 THEN 152 


PRINT@279, WK :PRINT@258, "ENTER WEEK (@@-52) “;: INPUT WK 
IF WK=@ THEN 300 
IF WK>52 THEN 160 





PRINTA312,L$:PRINTA29@, "ENTER (MON MID SAT) “;: INPUT LS 
IF LS="" THEN 300 
LS=LEFTS(LS,35) :GOTO 300 


BASIC & SOURCE CONV. CONT. Jpep— 1 4 


373 PUSH BC 386 * WRITTEN BY D.MITCHELL* 
374 RET 5387 DEFB @DH 
375 ADD DEFW @ 388 NOP 

376 BUFI DEFW @ 389 MES1 DEFB @DH 
377 BUF2Z DEFW @ 39@ * ENTER B/S * 
378 MES@ DEFB 1FH | 5391 NOP 

379 * THIS PROGRAM WILL MAKE WO 392 MES2Z DEFB @DH 
380 *RD* 395." ENTER WP. * 
381 DEFB @DH 594 NOP 

382 * PROCESSOR FILES FROM* 395 MESS EQU § 
383 * BASIC AND EDITOR ASSEMBL* 396 *FILENAME :* 
384 *ER SOURCE CODES* 397 NOP 

385 DEFB @DH 398 END NOP 


VZ NUMBERS FREQUENCY 


THIS PROGRAM IS DESIGNED TO KEEP TRACK OF WINNING NUMBERS IN POOLS AND 
GO LOTTO. THERE IS A CHOICE OF PRIME NUMBERS ONLY OR CAN INCLUDE 
SUPPLEMENTARY NUMBERS AS WELL. WITH SOME MINOR MODIFICATIONS THIS 
PROGRAM COULD BE ALTERED TO KEEP TRACK OF OTHER NUMBER FREQUENCIES. 


THE LEFT PRINTOUT BELOW SHOWS GO LOTTO FREQUENCY NUMBERS FOR THE YEAR 
OF 1994 UP TO THURSDAY, WEEK 7 WHILE THE ONE ON THE RIGHT IS FOR THE 
SAME TIME PERIOD, BUT INCLUDES SUPPLEMENTARY NUMBERS AS WELL. 


THERE ARE TWO INPUT CHOICES: 


1) INSERT - THIS ALLOWS YOU TO INSERT NUMBERS AS THEY ARE DRAWN 
AND/OR ADD TO EXISTING NUMBERS. 

2) EDIT —- JF YOU HAVE BEEN KEEPING TABS OF NUMBERS USING PENCIL AND 
PAPER THEN THIS OPTION WILL ALLOW YOU TO ENTER NUMBERS IN THE 
RANGE FROM @ TO 9999S MAXIMUM. 


ALSO TO THE BEST OF MY KNOWLEDGE THIS IS THE FIRST TIME THAT A 4 BYTE 
MULTI USR CALL ROUTINE HAS BEEN USED IN A PUBLISHED PROGRAM WHICH WAS 
DESCRIBED IN ISSUE # 31, PAGE 14. IT SIMPLIFIES THE CALLING OF M/C 
ROUTINES WHICH ARE: 


1) V2 SOUND BEEPER. 
2) M/C CLS (CLEAR PART SCREEN - 14 LINES.) 
3) M/C DIRECTORY ROUTINE WHICH WILL BE PUBLISHED IN NEXT ISSUE. 





Spica eR CEPR sere ae aaa sire ea 
1 = e 1g- € 23- & B4- 1 i~ Stem ce ce UR ao | 
hag 1 i= =~ 1 So Fal i Leer Ss ss: Se | 
S- 2¢ t4- YFS- 8 BE4 4 S- 8 is- 7 ES- 8 BR-  & 
$—- = a a ee Wa tt j— 2 tae Mok Se a 
are b. al oe So a ea ae :, ae a vate ee 
ee ty gees {a ay ee = ne La a os joa “} 
fas i ola ot = Fhi- 1 ¢ 1 ee oo 1, <;ti~ : 
e- 8 45- 6 38- F 4i- 2 e- 4 15- 7 BG- 2 4]- = 
S- TT 26- 4 58]- 8 42- 4 a~ 2 28—- § Bi- S 4e- 4 

i@- 4 Fi- if Se YP 48- 28/ e- Tf Fi- =F Ee- Fde- = 

li- oS Fe- 8 BB 1 44- FF] iti- 8 Be- & BB- Tad- = 

ve w’ Fee Se 2c Se . Riek 889 FOR AES 
LITO TE. StS We UP NE PRIME OU} LOTTO WR a4 Wk i PRIMet 
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356 IF CS$="E" THEN 900 
358 IF C$="D"THEN 500 
360 : 

362 IF C$="P"THEN 550 
364 IF C$="C”" THEN RUN 
466 IF CS$="Y"THEN 150 
368 : 

370 IF CS$="Q"THEN 680 
372 IF CS$=";"THEN 960 
374 IF C$=":"THEN 400 
273: -: 

396 GOTO 350 

498 : 

400 M=0:GOSUB 50: "& 
402 : 

404 PRINTAG/73,"L) LOAD DATA" 

406 PRINT@105,"S) SAVE DATA" 

408 PRINT@137,"U) UPDATE DATA” 

410 : 

412 PRINTA@Z201,"E) ERASE FILE" 

414 PRINTA@233,"R) RENAME FILE" 

416 PRINT@265,"1I) INIT DISK" 

418: 

420 PRINT@329,"D) DIRECTORY" 

422 PRINT@3S61,"1) DRIVE 1/2" 

424 PRINT@393,":) MAIN MENU " 

428 : 

430 DRIVE D:PRINT@361,USING"#";DR 

£42 : 

444 GOSUB 90:SOUND 25,1 

446 POKE 30777,355 

448 ; 

450 DS=INKEYS:DS=INKEYS: IF DS=""THEN 450 ELSE X=USR (13392) 
452 : 

“454 JF D$="L"THEN U=0:GOTO 650 

456 IF D$="S"THEN U=1:GOTO 650 

458 IF D$="U"THEN U=2:GOTO 650 

459 : 

460 IF D$="E"THEN 600 

462 IF D$="R" THEN 620 

4635 : 

464 IF DS="D" THEN 850 

466 IF DO$S="I"THEN 780 

470 IF D$="1"THEN D=1:DRS="88":GOTO 430 

472 IF D$="2" THEN D=2:DR$="":GOTO 430 

47q : 

476 IF D$=":"THEN 300 

4Qq ; 

496 GOTO 450 | 

“498 : 

500 GOSUB 80:IF ND=O0 THEN 326: "Bask 

502 M=0:GOSUB 50:GOSUB 90 

508 : 

510 ES="##" :FS="#### “":PRINTAGB4, ""; 

H18 : 

520 IF R=38 THEN X1=10:Y1=30:ST=10 

S22 IF R=44 THEN X1=11:Y1=33:ST=11 

524 FOR X=1 TO X1:FOR Y=0 TO Y1 STEP ST 

526 IF R=38 THEN IF X+Y>38 THEN PRINT:GOTO 534 

2G 3 

530 PRINT USING E$:X+Y;:PRINT"—-"; 

532 PRINT USING FS:C(X+Y); 








Vf FREQUENCY CONTINUED 44—1& 


198 : 


212 


216 
218 
220 
LLZ 


M=0:GOSUB 50:GOSUB QO: * " Bisitesit cia mim wren urswm 


IF R=44 THEN PRINT@243,°L" ELSE PRINT@243, "P” 
PRINT@226, "LOTTO OR POOLS “::INPUT Y$ 


IE Y$="L"THEN R=44:P=8:PRINTA481 , "sum + GOTO 216 
IF YS="P"THEN R=38:P=7:PRINT@481 , "alMlNiRS” | :ELSE 204 


PRINT@Z75, "N" :PRINT@258, "PRIME #'°S ONLY ";: INPUT PS 


IF P$="Y"THEN P$="PRIME ":P=6:GOTO 230 
IF P$="N"THEN P$="PRIME+":GOTO 230 ELSE 216 


224 ; 


230 
Z5Z 
2354 
236 
Z30 
240 


X=USR (31348) :'CLEAR PART SCREEN 
L=98:FOR A=1 TO P 


iF A<7 THEN PRINT@L,"ENTER WINNING #";A;"-> °; 
IF A=7 THEN L=322 : 
IF A>6 THEN PRINT@L, "SUPPLEMENTARY NUMBER °; 


242 : 


24d 
246 
248 
250 
252 
254 
256 


INPUT N(A) 

IF N(A)=G THEN A=P:GOTO 300 

IF A<7 THEN IF N(A)>R THEN 256 

IF A>6 THEN IF NCA) OR THEN 240 

T=O0:IF A<>1 THEN FOR I=1 TO A-1:T=T-(N(I)=N(A)):NEXT I 
Te 1). THEN 256 

L=L+32:NEXT 


ZO: ¢ 


260 


PRINT@441,"Y":PRINT@418, “ARE NUMBERS CORRECT "; 


262 = 


264 
266 
268 
270 
2/72 
274 
2/0 


INPUT YS:IF Y$S="Y" THEN 270 
If Y$S="N" THEN 232 ELSE 260 





FOR T=1 TO P: ° “Uiteisise: ae a le 
CINCL)) =C(N(1I)) +1: NEXT 
PRINTA441, "Y":PRINTA418, “ENTER MORE NUMBERS "s: INPUT YS 


278 : 


280 
282 


IF Y$="Y"THEN 230 
IF Y$="N"THEN 500 ELSE 276 


298 : 


300 


M=0:GOSUB 5O: ' "iiiebalg ma aicusieua 


302 : 


304 
306 
308 


PRINT@O73,"1I) INSERT DATA" 
PRINT@105,"E) EDIT DATA” 
PRINT@137,"D) DISPLAY DATA" 


S104 


D2 
314 
a0 


PRINT@201,"P) PRINT DATA" 
PRINT@235,"°C) CLEAR DATA" 
PRINT@2Z65,"°Y) ENTER YR/WK" 


318 : 


320 
324 
326 


PRINTAS29,"Q) QUIT & PARK” 
PRINT@361,";) SUB MENU" 
PRINT@393,":) DISK MENU : 


3542 : 


344 
346 


GOSUB 90:SOUND 25,1 
POKE 30777,35 


548 : 


350 


CS=INKEYS:CS=INKEYS:1IF C$=""THEN 350 ELSE X=USR(13392) 


DZ 3 


354 


IF C$="I"THEN 200 


44—19° VZ—-—EPSON PRINTER PATCH V1. 4 


BY LARRY TAYLOR — PUBLIC DOMAIN 


BP RURUAR MATAR ARTOSARANTAADN ADDON A A AS 
fa ee ee eo este ene ce ao oe ake Oe HER 2A Ae: 


a 


! 


R 
3 
4 


oF BPE Pe EP re ee ae eee ee See Pa een ne ee ee ea SE ee ee 8 


ey ee 


a ot dae ea eM eHNAnM AAA ae ee 


The VZ-EPSON PRINTER PATCH allows EPSON or EPSON 
compatible printers to LPRINT or LLIST all of the VZ‘s 


-inverse and graphics characters. 


These same characters can also be dumped to the printer 
from the LO-RES screen, when the COPY command is used. In 


MODE (1), use of the COPY command will dump the HI-RES ~ 


screen to the printer. In addition, an extension of the 
COPY command has been provided. The new command is COPYA. 
If COPYA is used in MODE(O), a dump of the LO-RES screen 
will be made without the usual linefeeds, whilst in 
MODE (1), a =larger than normal dump of the HI-RES screen 
will be printed. To cater to differences in line feeds 


between printers, both commands may be used in the form 
COPYn and COPYAn, where n is a value ranging from 4 to 8. 
Changing n allows selection of a line feed setting 


apppropriate to the printer being used. Should COPY or 
COPYA not be followed by a line feed value, then a default 
setting of 6 will be used. 


Three additional commands, LTAB(n), PAGE(n) and FEED (n) 
have also been added. The LTAB(n) command is used to set a 
left margin for any output to the printer, whether from an 
LPRINT statement, during LLISTing of a BASIC program or 
when doing a screen dump. The value n may be in the range O 
ta 63, indicating the number of spaces in from the left 
that printing will occur. A printout of the disk directory 
at the current LTAB(n) position can be obtained by first 
setting the output device code to printer, followed by the 
DIR command. eq. POKE30876,1:DIR 


PAGE (n) sets the page length and nm may be in the range 
0 to 127. FEED(n) sets the number of linefeeds between the 
end of printed text and the end of the page. It can be in 
the range from O to 127, but unless it is less than the 
page length, it will be ignored. Setting a valid linefeed 
value, causes a form feed to occur automatically. If n is 
set to O then the automatic form feed is Switched off. 
LTAB(n), PAGE(n), FEED(n), LLIST, LPRINT and both the COPY 
commands may be entered either directly from the keyboard, 
or used from within a program, but will only function 
correctly whilst the PRINTER PATCH is present. 


The utility lecates and protects itself according to 
available memory, allowing BASIC programs to be loaded and 
worked on normally. When LLISTing a BASIC program, the 
routine is also able to recognize all of the Ridden 
commands, which may have been entered using an EXTENDED 
BASIC. Although not dependent on it, the routine can be 
used with Steve Olney’s EXTENDED BASIC already resident in 
memory and will not interfere with it in any way. To use it 
in this way, first load the extended BASIC and then the 
PRINTER PATCH. Once the READY message appears you will have 
access to both the EXTENDED BASIC and the improved printer 
commands. 
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942 
544 


500 
602 


606 
608 
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626 
628 
630 
632 
634 
6356 
638 
640 
642 
648 
650 
652 
654 
656 
658 
660 
662 
664 
666 
668 


Vl FREQUENCY CONTINUED $4—18 


NEXT Y:NEXT X 
ES="":FS="" 


PRINT@455 ,MS 
If INKEYS=":"THEN 300 ELSE 546 





GOsUB 80: IF ND=O0 THEN 326: ' "disicaiity gamer pare 
M=1:GOSUB 50:PRINT@11, "imicaakawuaryes" : GOSUB 90 


GOSUB 60:INPUT Y$ 
IF Y$="N"THEN 300 
IF Y$="Y"THEN 564 ELSE 556 


ES="##":FS="**H## " 

LPRINT TAB(10)"VZ “;PL$;" YR “;USING E$;Y; 
LPRINT" WK ";USING ES;W;:LPRINT" ";USING"% &":L$; 
LPRINT USING"% 6" ;P$:LPRINT 


IF R=38 THEN X1=10:Y1=30:ST=10 

IF R=44 THEN X1=11:Y1=33:ST=11 

FOR X=1 TO X1i:FOR Y=O TO Y1- STEP ST 
IF R=38 THEN IF X+Y>38 THEN 590 


LPRINTTAB(TO)USING ES;X+Y;:LPRINT"-"; 
LPRINT USING FS;C(X+Y); 

NEXT Y:LPRINT 

NEXT X:LPRINT 

ES="":F$="":GOTO 300 


M=1:GOSUB SO:PRINT@IO, “tazieiiomeaeimsy” ; :GOSUB 68:PRINT@258, EFS; 


SOUND 30,1: INPUT N$ 

IF NS=""THEN 400 

IF LEN(NS)>8 THEN 600 
AD=31483:GOSUB 40:GOSUB 12 
GOTO 400 


Ma 1 :GOSUB 50:PRINT@10, “iagris "+ :GOSUB 68 


PRINT@258, “OLD FILENAME > ";:SOUND 30,1:INPUT N$ 
IF N$=""THEN 400 

IF LEN(N$)>8 THEN 620 

AD=315035:GOSUB 40 


PRINT@ZS0, "NEW FILENAME > ";:SOUND 30,1:INPUT N$ 
IF N$S=""THEN 400 

IF LEN(NS)>8 THEN 634 

AD=31514:GOSUB 40 

GOSUB 14:GOTO 400 


IF U>O THEN GOSUB 80:IF ND=O THEN 424: ' “pg 
M=1:GOSUB 50 

IF U=0 THEN PRINT@11, “timtarsia)” . 

IF U=1 THEN PRINT@11, "Yea" ; 

IF U=2 THEN PRINT@10, "Wsaeenasd ” 

PRINT! ‘aeds)” :GOSUB 90:GOSUB 68 


PRINTA275, N$:PRINTA2Z58,EFS$; 
INPUT N$:IF NS=""THEN 400 
IF LEN(NS)>8 THEN664 








= =» CONTINUED NEXT ISsueE . . 


NEW PUBL TC DOMAIN SOFTWARE AL4—2O 


DAVE MITCHELL 


E & F WP PATCH 3.3 E & F WP PATCH 3.4 

MENU & FILE COPIER MENU & FILE COPIER 6Q00H 
EXTENDED DOS V1.3 EXTENDED DOS 6Q02H 
MONT TOR 6000H DISK FILE COPIER 6@00H 


DISK FILER & CATALOGUER 
MARK HARWOOD 


MARK 32 DATABASE MARK 64 DATABASE 

DISK EDITOR ASSEMBLER VZ USER NEWSLETTERS - 22 ISSUES 
LARRY TAYLOR 

VZ EPSON PRINTER PATCH 1.4 ESCAPE RIVER  (LO/HI-RES ADVENTURE) 

COPYPRO 4: FILE COPIER/PROTECTOR FACTORY (EDUCATIONAL GAME) 

COPYPRO 5: TWO DRIVE DISK ONLY TOWER OF HANOI (EDUCATIONAL GAME) 


DISK COPY 2: SINGLE DRIVE COPIER NAME THE TOWNS (EDUCATIONAL) 
FILE SEARCH 2 (DISK/TAPE CONTENTS) MICROSCOPE (EDUCATIONAL ) 
DISK MENU (MEMORY RESIDENT) ONERTLE (EDUCATIONAL MATHS) 


BRIAN GREEVE : MACHINE CODE DATA 2 
H.V. VZU. G. = HUNTER VALLEY VZ JOURNAL 


DICK SMITH EL: IT COULD BE SAFELY SAID THAT IT IS PUBLIC DOMAIN ALSO 
AS FOR A COUPLE YEARS NOW THEY HAVE REFERED TO ME PERSONS WISHING TO AQUIRE VZ 
SOFTWARE, HARDWARE OR VARIUOS PUBLICATIONS. 


NOTE =: I HAVE MOST OF THE ABOVE PROGRAMS AND THEY CAN BE HAD JUST FOR THE 
PRICE OF COVERING COSTS LIKE POST, PACKING, DISKS, ETC. 
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CONTRIBUTIONS TO THE JOURNAL 


IF YOU ARE THINKING OF CONTRIBUTING TO THE JOURNAL THE PREFERED FORMAT IS BASIC 
LISTINGS, WORD PROCESSOR OR SOURCE CODE FILES ON TAPE OR DISK. FILES FROM ALL 
EDITOR ASSEMBLERS AND WORD PROCESSORS CAN BE ACCEPTED. THE PREFERED WORD 
PROCESSORS ARE LESLIE MILBURN QUICK WRITE, RUSSELL HARRISON WORDPRO AND DAVE 
MITCHELL PATCH 3.3. 


CLUB MEETINGS — ALL WELCOME 


MEETINGS WILL BE APPROXIMATELY ONCE A MONTH, USSUALY ON THE FIRST FRIDAY. 
MEETING DATES WILL BE ADJUSTED TO ACCOMODATE MEMBERS ABILITY TO ATTEND. WHETHER 
YOU ARE A LOCAL MEMBER, INTRA OR INTER STATE VISITOR PLEASE CHECK WITH JOE LEON 
FIRST. 


HUNTER VALLEY VZ JOURNAL SUBSCRIPTIONS 


SUBSCRIPTION TO - AUST. - 3 ISSUES $11.00 - 6 ISSUES $21.@0 
H.V.VZ.JOURNAL - N. Z. — 3 ISSUES $13.00 — 6 ISSUES $26.00 
PRICES INCLUDE POST & PACKING 


FOR MORE INFORMATION ON MEETINGS AND SUBS CONTACT: 
JOE LEON 35 TIGHES TcE TIGHES HILL 2297 (@49) 611 474 AUSTRALIA 
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NOTE =: WHEN WRITING TO H.V.VZ. USERS' Group FOR INFORMATION PLEASE ENCLOSE A 
5.9.A.E. OR NZ 2 INT. REPLY COUPONS. 


